home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Prog / M / Lex.cpt / Lex / LEXLIB.π folder / INTEG.C / INTEG.C
Encoding:
C/C++ Source or Header  |  1990-04-22  |  912 b   |  40 lines  |  [TEXT/KAHL]
  1. /*
  2.   HEADER: CUG    nnn.nn;
  3.   TITLE:    LEX - A Lexical Analyser Generator
  4.   VERSION:       1.0 for IBM-PC
  5.   DATE:    Jan 30, 1985
  6.   DESCRIPTION:   A Lexical Analyser Generator. From UNIX
  7.   KEYWORDS:      Lexical Analyser Generator YACC C PREP
  8.   SYSTEM:    IBM-PC and Compatiables
  9.   FILENAME:      INTEG.C
  10.   WARNINGS:      This program is not for the casual user. It will
  11.     be useful primarily to expert developers.
  12.   CRC:    N/A
  13.   SEE-ALSO:      YACC and PREP
  14.   AUTHORS:       Scott Guthery 11100 leafwood lane Austin, TX 78750
  15.   COMPILERS:     DESMET-C
  16.   REFERENCES:    UNIX Systems Manuals
  17. */
  18. #include    "lex.h"
  19. /*
  20.  * integ -- ascii to long (various bases)
  21.  */
  22. long
  23. integ(char *cp, register int base)
  24. {
  25.     register c;
  26.     long n;
  27.  
  28.     n = 0;
  29.     while (c = *cp++) {
  30.         if (c>='A' && c<='Z')
  31.             c += 'a'-'A';
  32.         if (c>='a' && c<='z')
  33.             c = (c-'a')+10+'0';
  34.         if (c < '0' || c > base+'0')
  35.             break;
  36.         n = n*base + c-'0';
  37.         }
  38.     return(n);
  39. }
  40.